home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
024
/
modula-2
/
m2
/
traptest.mod
< prev
next >
Wrap
Text File
|
1995-03-17
|
94b
|
8 lines
MODULE TrapTest;
VAR i, j: INTEGER; r: REAL;
BEGIN
i:=3; j:=0;
i:=i DIV j;
END TrapTest.